home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A).po
/
PLOADER.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
431b
|
2 lines
1 DATA 24,251,139,194,48,162,0,32,160,0,128,169,255,31,84,225,0,171,56,251,96,0,12288,0,48,0,32,3000,12288,0,48,0,80,6000,8191,255,31,0,128: FOR I = 768 TO 768 +20: READ A: POKE I,A: NEXT : HOME : INPUT "File name?";A$: POKE 49193,97: FOR I = 1 TO 3
2 READ B$,B: PRINT CHR$(4)"BLOAD"A$",A$2000,B$"B$",L"B",T$C1": READ A,B,C,D: POKE 780,A: POKE 781,B: POKE 777,C: POKE 778,D: CALL 768: NEXT : POKE 49193,129: GET A$: POKE 49193,1